perm filename MFDOVR.DIF[MF,DEK] blob
sn#557224 filedate 1981-01-22 generic text, type C, neo UTF8
COMMENT ⊗ VALID 00003 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00002 00002 1) MFDOVR.SAI[MF,DEK] and 2) MFDOVR.SAI[MF,DRF] 1-22-81 11:17 pages 1,1
C00005 00003 1) MFDOVR.SAI[MF,DEK] and 2) MFDOVR.SAI[MF,DRF] 1-22-81 11:17 pages 3,3
C00006 ENDMK
C⊗;
1) MFDOVR.SAI[MF,DEK] and 2) MFDOVR.SAI[MF,DRF] 1-22-81 11:17 pages 1,1
**** File 1) MFDOVR.SAI[MF,DEK]/1P/6L
1) C00014 00004 Routines for presswd mode.
1) C00020 ENDMK
1) C⊗;
**** File 2) MFDOVR.SAI[MF,DRF]/1P/6L
2) C00015 00004 Routines for presswd mode.
2) C00021 ENDMK
2) C⊗;
***************
**** File 1) MFDOVR.SAI[MF,DEK]/3P/27L
1) for y←xw+ylow thru xw+yhigh do z←z lor rast[y];
1) if z then done;
**** File 2) MFDOVR.SAI[MF,DRF]/3P/27L
2) for y←xw+ylow thru xw+yhigh do
2) var!gets!rast!lor!var(z,y) # z←z lor rast[y];
2) if z then done;
***************
**** File 1) MFDOVR.SAI[MF,DEK]/3P/46L
1) for y←xw+ylow thru xw+yhigh do z←z lor rast[y];
1) if z then done;
**** File 2) MFDOVR.SAI[MF,DRF]/3P/47L
2) for y←xw+ylow thru xw+yhigh do
2) var!gets!rast!lor!var(z,y) # z←z lor rast[y];
2) if z then done;
***************
**** File 1) MFDOVR.SAI[MF,DEK]/3P/56L
1) if rast[xw] then go to nonblank3;
1) yl←yl+1;
**** File 2) MFDOVR.SAI[MF,DRF]/3P/58L
2) IFXMEM begin var!gets!rast(xtemp,xw); if xtemp then go to nonblank3; end;
2) ELSEC if rast[xw] then go to nonblank3;
2) ENDC
2) yl←yl+1;
***************
**** File 1) MFDOVR.SAI[MF,DEK]/3P/62L
1) if rast[xw] then go to nonblank4;
1) yh←yh-1;
**** File 2) MFDOVR.SAI[MF,DRF]/3P/66L
2) IFXMEM begin var!gets!rast(xtemp,xw); if xtemp then go to nonblank4; end;
2) ELSEC if rast[xw] then go to nonblank4;
1) MFDOVR.SAI[MF,DEK] and 2) MFDOVR.SAI[MF,DRF] 1-22-81 11:17 pages 3,3
2) ENDC
2) yh←yh-1;
***************
**** File 1) MFDOVR.SAI[MF,DEK]/3P/104L
1) idpb(rast[wdaddr] lsh shft,bitptr);
1) if ldb(pfield)=4 then
**** File 2) MFDOVR.SAI[MF,DRF]/3P/110L
2) IFXMEM var!gets!rast!lsh!expr(xtemp,wdaddr,shft); idpb(xtemp,bitptr);
2) ELSEC idpb(rast[wdaddr] lsh shft,bitptr);
2) ENDC
2) if ldb(pfield)=4 then
***************